From dca6f6a6b3f4f10b0a3f71a90178559702cca09a Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Wed, 31 Jan 2001 16:12:07 +0000 Subject: [PATCH] (set-fill-prefix): Cancel fill prefix if point is in front of the left-margin, if any. --- lisp/textmodes/fill.el | 12 +++++++----- 1 file changed, 7 insertions(+), 5 deletions(-) diff --git a/lisp/textmodes/fill.el b/lisp/textmodes/fill.el index d9bf1e520d9..1ddf46e2361 100644 --- a/lisp/textmodes/fill.el +++ b/lisp/textmodes/fill.el @@ -74,11 +74,13 @@ See the documentation of `kinsoku' for more information.") Filling expects lines to start with the fill prefix and reinserts the fill prefix in each resulting line." (interactive) - (setq fill-prefix (buffer-substring - (save-excursion (move-to-left-margin) (point)) - (point))) - (if (equal fill-prefix "") - (setq fill-prefix nil)) + (let ((left-margin-pos (save-excursion (move-to-left-margin) (point)))) + (if (> (point) left-margin-pos) + (progn + (setq fill-prefix (buffer-substring left-margin-pos (point))) + (if (equal fill-prefix "") + (setq fill-prefix nil))) + (setq fill-prefix nil))) (if fill-prefix (message "fill-prefix: \"%s\"" fill-prefix) (message "fill-prefix cancelled"))) -- 2.30.2